home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
wincomm5.arc
/
COMPUSER.WMS
< prev
next >
Wrap
Text File
|
1990-10-25
|
865b
|
62 lines
; Compuserve auto logon using session strings
OPEN("compuser.WSF","",1)
START
DO UNTIL(ONLINE?==1)
i = TIME? + 2
DO UNTIL(TIME?>i)
times = 0
SEND("^C")
AGAIN:
PROMPT
PSTR(2,1,"^^C")
PWAIT(2,200)
PEND
DO i=PROMPT? UNTIL(i !=0)
IF(i == 1)GOTO NEXT
IF(i == 2)SEND("^C")
times = times+1
IF(times > 1){
ALERT("Compuserve Logon Unsuccessful. Try again later.")
HALT
}
GOTO AGAIN
SEND("^C")
NEXT:
PROMPT
PSTR(2,1,"ID:")
PSTR(2,2,"Password")
PSTR(2,3,"Copyright")
PWAIT(4,3000)
PEND
DO i=PROMPT? UNTIL(i !=0)
IF(I == 1){
SEND(GETSESSSTR(4)+"^M")
GOTO NEXT
}
IF(I == 2){
SEND(GETSESSSTR(3)+"^M")
GOTO NEXT
}
IF(I == 3){
text$ = "Now connected to compuserve"
HALT
}
IF(I == 4){
ALERT("Compuserve Logon Unsuccessful. Try again later.")
HALT
}
END